home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 102 / 102.d81 / cryptogrid 102 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  5.5 KB  |  203 lines
  1. 5 poke56,56:clr
  2. 6 dv=peek(186):ifdv<8thendv=8
  3. 8 dimw$(300),rw(12),cm,h,i,j,k,l,m,t,u,v,x,y,z,xx,yy,fg,co,d,w,sc,ww
  4. 10 poke53281,0:poke53280,0:print"[147]":gosub60000
  5. 11 sys57812"cfont",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 12 sys57812"inp/cm ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  7. 16 sys52736,"cryptdata 102",dv
  8. 18 h=peek(252)*256+peek(251)
  9. 19 goto100
  10. 20 poke646,8
  11. 21 poke214,y:print:printtab(x)"[177]"left$(h$,xx+1)"[179]"
  12. 22 fori=1toyy:printtab(x)"[180][146]"left$(sp$,xx)"[180]":next
  13. 23 printtab(x)"[181]"left$(h$,xx+1)"[182]"
  14. 24 poke214,y+1:print:printtab(x+2);
  15. 25 return
  16. 30 poke214,23:print
  17. 32 print"   [193]ny key [155]- more    [210][197][212][213][210][206] [155]- menu[145]":poke198,0
  18. 34 geta$:ifa$=""then34
  19. 36 fg=0:ifa$=chr$(13)thenfg=1
  20. 38 return
  21. 40 syscm,1024,16384,1000
  22. 42 syscm,55296,17384,1000
  23. 44 return
  24. 45 syscm,16384,1024,1000
  25. 46 syscm,17384,55296,1000
  26. 47 return
  27. 50 x=14:xx=13:y=9:yy=5:gosub20
  28. 52 print"[150]  "r$
  29. 54 printtab(16)"[159][208]ress a key":poke198,0
  30. 56 geta$:ifa$=""then56
  31. 58 return
  32. 100 print"[147]":cm=53176
  33. 102 fori=1to5:readm$(i):next
  34. 103 data"    [208]lay [195][210][217][208][212][207][199][210][201][196]
  35. 104 [131]"  (NULL)ules of len(NULL)(NULL)(NULL)(NULL)(NULL)chr$(NULL)right$str$
  36. 105 data" [200]ow to [211]olve [195]ryptics
  37. 106 [131]"  len(NULL)(NULL)(NULL)(NULL)(NULL)chr$(NULL)right$str$ (NULL)olution
  38. 107 data"   [210]eturn to [204][207][193][196][211][212][193][210]
  39. 110 h$[178]"======================================"
  40. 111 c$[178]"getnewtab(cmdcmdcmdtototocmdcmdcmdspc(thennot"
  41. 112 cb$[178]"step+-cmdcmdcmd//cmdcmdcmd^andor"
  42. 113 d$[178]"-------------------"
  43. 114 [150] [165]r(x)[178][181]([187](.)[172]x)
  44. 115 [129]i[178]0[164]3:[135]dx(i),dy(i):[130]
  45. 116 [131]0,-1,1,0,0,1,-1,0
  46. 117 sp$[178]"                                      on"
  47. 118 [129]i[178]100[164]140:[139]w$(i)[178]"*"[167]u[178]i[171]3:i[178]140
  48. 119 [130]
  49. 120 [151]53272,31
  50. 122 [129]i[178]0[164]4:[135]vw$(i):[130]
  51. 123 [131]"atn","val","right$","(NULL)","(NULL)"
  52. 150 [153]"load":x[178]8:xx[178]23:y[178]3:yy[178]14:[141]20
  53. 152 [153]"for len (NULL) (NULL) (NULL) (NULL) (NULL) chr$ (NULL) right$ str$cont"
  54. 154 [129]i[178]1[164]5:[153][163]9)m$(i):[153]:[130]
  55. 160 m[178]1:w[178]0:sc[178]100:[129]i[178]1[164]10:rw(i)[178]0:[130]
  56. 162 [151]214,6[170]m[172]2:[153]:[153][163]9)""m$(m)"on":[151]198,0
  57. 164 [161]a$:[139]a$[179][177]""[175]a$[179][177]"on"[175]a$[179][177][199](13)[167]164
  58. 166 [139]a$[178][199](13)[167]180
  59. 168 [153][163]9)"cont"m$(m)
  60. 170 [139]a$[178]"on"[167]m[178]m[171]1:[139]m[179]1[167]m[178]5
  61. 172 [139]a$[178]""[167]m[178]m[170]1:[139]m[177]5[167]m[178]1
  62. 174 [137]162
  63. 180 [145]m[141]200,800,400,450,900
  64. 182 [137]162
  65. 200 [153]"load"
  66. 202 x[178]1:xx[178]21:y[178]0:yy[178]19:[141]20
  67. 204 [153]"open"
  68. 220 x[178]25:xx[178]12:y[178]0:yy[178]2:[141]20
  69. 221 [153]"open(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)'(NULL)":[153][163]27)"len(NULL)(NULL)(NULL)(NULL)(NULL)chr$(NULL)right$str$"
  70. 223 x[178]25:xx[178]12:y[178]10:yy[178]9:[141]20
  71. 224 [153][163]27)"list(NULL)core:    cmdcmdcmdcmd"sc
  72. 226 [153][163]27)"asc1 cont- left$int
  73. 228 printtab(27)"[198]3 [154]- [206]ext
  74. 229 [153][163]27)"asc5 cont- (NULL)ules
  75. 230 printtab(27)"[198]7 [154]- [209]uit
  76. 232 [129]i[178]0[164]4:[129]j[178]0[164]4
  77. 234 [151]214,1[170]i[172]4:[153]"":[153][163]3[170]j[172]4)c$
  78. 236 [130]:[130]
  79. 238 [129]i[178]0[164]10:fm(i)[178]0:[130]
  80. 239 w[178]w[170]1:[139]rw(w)[175]w[179]11[167]239
  81. 240 [139]w[177]10[167]324
  82. 241 l[178][195](w$(u[170]w[172]4)):an$[178]""
  83. 242 [151]214,5:[153]:[153][163]25)[200](sp$,13):[153][163]25)[200](sp$,13)
  84. 243 tb[178]32[171][181](l[173]2):[151]214,6:[153]"list":[153][163]tb)[200](d$,l)
  85. 244 [151]214,22:[153]"list":[153]sp$:[153]" "w$(u[170]1[170]4[172]w):[153]sp$:[153]" "w$(u[170]2[170]w[172]4)""
  86. 246 [151]214,8:[153]:[153][163]29)"list(NULL)(NULL)(NULL)str$   cmdcmdcmd"w
  87. 250 x[178][165]r(5)[170]1:y[178][165]r(5)[170]1:[129]i[178]1[164]5:[129]j[178]1[164]5:xp$(i,j)[178]" ":[130]:[130]
  88. 252 xp$(x,y)[178][200](w$(u[170]w[172]4),1)
  89. 253 xm(1)[178]x:ym(1)[178]y
  90. 254 [129]i[178]2[164]l
  91. 256 wo$[178][202](w$(u[170]w[172]4),i,1)
  92. 257 zz[178]0
  93. 258 d[178][165]r(4)
  94. 260 [139]xp$(x[170]dx(d),y[170]dy(d))[179][177]" "[167]264
  95. 262 x[178]x[170]dx(d):y[178]y[170]dy(d):xp$(x,y)[178]wo$:xm(i)[178]x:ym(i)[178]y
  96. 263 [137]268
  97. 264 zz[178]zz[170]1:[139]zz[177]20[167]i[178]l:[130]:[137]250
  98. 266 [137]258
  99. 268 [130]:[153]""
  100. 270 [129]i[178]0[164]4:[129]j[178]0[164]4
  101. 271 [139]xp$(j[170]1,i[170]1)[179][177]" "[167]274
  102. 272 xp$(j[170]1,i[170]1)[178][199](193[170][165]r(26))
  103. 273 [139][165]r(4)[178]1[167]xp$(j[170]1,i[170]1)[178]vw$([165]r(5))
  104. 274 [151]214,i[172]4[170]2:[153]:[153][163]j[172]4[170]4)""xp$(j[170]1,i[170]1):[130]:[130]:ww[178]1
  105. 276 [151]214,12:[153]:[153][163]33)"    cmdcmdcmdcmd"sc
  106. 278 [151]214,5:[153]:[153][163]tb[171]1[170]ww)" cmd";:[129]t[178]1[164]100:[130]
  107. 279 [153]"wait ":[129]t[178]1[164]100:[130]
  108. 280 [161]a$:[139]a$[178]""[167]278
  109. 282 [139]a$[179][177][199](133)[167]289
  110. 284 [151]214,(ym(ww)[171]1)[172]4[170]1:[153]:[153][163](xm(ww)[171]1)[172]4[170]3)""cb$:fm(ww)[178]1
  111. 286 [139]sc[177]0[167]sc[178]sc[171]2
  112. 288 a$[178][202](w$(u[170]4[172]w),ww,1):[137]300
  113. 289 [139]a$[179][177][199](20)[167]293
  114. 290 [139]fm(ww[171]1)[176]ww[178]1[167]280
  115. 291 an$[178][200](an$,[195](an$)[171]1):ww[178]ww[171]1:[151]214,5:[153]"sys":[153][163]tb[171]1[170]ww)"  "
  116. 292 [137]280
  117. 293 [139]a$[178][199](134)[167]232
  118. 294 [139]a$[178][199](135)[167][141]800:[137]280
  119. 295 [139]a$[178][199](136)[167]150
  120. 296 [139]a$[177][178]"a"[175]a$[179][178]"z"[167]a$[178][199]([198](a$)[170]128):[137]300
  121. 297 [139]a$[177][178]"atn"[175]a$[179][178]"(NULL)"[167]300
  122. 298 [137]280
  123. 300 [151]214,5:[153]"sys":[153][163]tb[171]1[170]ww)a$:an$[178]an$[170]a$:a$[178]""
  124. 302 ww[178]ww[170]1
  125. 304 [139]ww[178][179]l[167]276
  126. 308 [141]40
  127. 310 [139]an$[178]w$(u[170]w[172]4)[167]rw(w)[178]1:r$[178]"(NULL)ighto!":[137]320
  128. 312 r$[178]"(NULL)rongo!"
  129. 320 [141]50:[141]45
  130. 322 [151]214,12:[153]:[153][163]33)"    cmdcmdcmdcmd"sc
  131. 324 [129]i[178]1[164]10:[139]rw(i)[178]0[167]i[178]10:[130]:[137]328
  132. 326 [130]:[137]350
  133. 328 [139]w[177][178]10[167]w[178]0
  134. 330 [137]232
  135. 350 x[178]8:xx[178]23:y[178]6:yy[178]8:[141]20
  136. 352 [153]"cont  (NULL)our score was"sc"cont"
  137. 354 [139]sc[179]100[167]360
  138. 356 [153][163]10)"lenongratulations!  (NULL)ou
  139. 358 printtab(10)"made a perfect score!":gosub54:goto150
  140. 360 ifsc<80then366
  141. 362 printtab(10)"[206]ot bad!  [217]ou didn't
  142. 364 [153][163]10)"need too many hints.":[141]54:[137]150
  143. 366 [153][163]10)"(NULL)eep trying! lenryptics
  144. 368 printtab(10)"get easier each time.":gosub54:goto150
  145. 400 gosub40
  146. 410 print"[147][159]":fori=1to99
  147. 412 ifw$(i)<>"\"then418
  148. 414 gosub30:iffgtheni=99:next:gosub45:return
  149. 416 print"[147][159]":i=i+1
  150. 418 print" "w$(i)
  151. 420 next
  152. 422 gosub30:iffgtheni=99:gosub45:return
  153. 424 goto410
  154. 450 gosub40:i=0
  155. 452 print"[147]"
  156. 454 print""w$(u+4+i*4)
  157. 456 print"[154] "w$(u+5+i*4)
  158. 458 print" "w$(u+6+i*4)
  159. 460 print"[159]  "w$(u+7+i*4)
  160. 462 print
  161. 464 i=i+1:ifi/4<>int(i/4)then454
  162. 466 gosub30:iffgthengosub45:return
  163. 468 ifi<10then452
  164. 470 i=0:goto452
  165. 800 gosub40:x=3:xx=32:y=2:yy=15:gosub20
  166. 812 printtab(5)"[159]  [200]idden in the grid is the
  167. 814 [153][163]5)"word defined by the cryptic
  168. 815 printtab(5)"clue below the grid.  [212]he
  169. 816 [153][163]5)"word may 'snake' around but
  170. 817 printtab(5)"it will not move diagonally.
  171. 818 [153][163]5)"  valnter the word by typing it.
  172. 820 printtab(5)"[217]ou can reveal a letter by
  173. 822 [153][163]5)"pressing asc1, but it will cost
  174. 824 printtab(5)"you 2 points.  [208]erfect score
  175. 826 [153][163]5)"is 100 -- no hints.
  176. 828 printtab(5)"  [203]eep going through the words
  177. 830 [153][163]5)"till you get them all right.
  178. 832 printtab(14)"[155][208]ress a key
  179. 840 [161]a$:[139]a$[178]""[167]840
  180. 842 [141]45:[142]
  181. 900 [141]40:x[178]4:xx[178]31:y[178]9:yy[178]3:[141]20
  182. 902 [153]"cont (NULL)(NULL)right$(NULL)?  atnre you sure?  (ycont/ncont)"
  183. 904 [161]a$:[139]a$[178]""[167]904
  184. 906 [139]a$[179][177]"y"[167][141]45:[142]
  185. 908 [137]40000
  186. 10000 [159]15,8,15,"s0:cryptogrid 102":[160]15:[148]"cryptogrid 102",8:[128]
  187. 40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40030
  188. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  189. 40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[128]
  190. 40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  191. 40040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  192. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  193. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  194. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  195. 60030 z$(0)[178]"len (NULL) (NULL) (NULL) (NULL) (NULL) chr$ (NULL) right$ str$":z$(1)[178]"by ascender (NULL)ucker
  196. 60040 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
  197. 60050 z$(3)="[212]his program is the copyrighted work
  198. 60060 z$(4)[178]"of (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$.  right$t is not"
  199. 60070 z$(5)[178]"shareware or in the public domain."
  200. 60080 z$(6)[178]"(NULL)eport illegal distribution of":z$(7)[178]"this program by calling"
  201. 60090 z$(8)[178]"1-800-831-2694 or 1-318-221-8718.":[151]214,12:[153]
  202. 60100 [129]i[178]0[164]8:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  203.